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! FACILITY: Network Control Program (NCP) 
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ABSTRACT: 
States and data for the parsing of NCP Configurator module parameters 
ENVIRONMENT: VAX/VMS Operating System 
AUTHOR: Bob Grosso October 1982 
MODIFIED BY: 
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NCPSTAMOD Modu 00:46:46 2 
-000 initions 14-Sep-1984 12:48:2 NCP.SRCINCPSTAMOD.B32; 1 (2) 


s 

t 
3 “6 045 1 £SBTTL ‘Definitions’ ‘ 
ie 8 1 : 
; #349 8 1 ! INCLUDE FILES: : 
3 o 1° 
; é 11 LIBRARY 'LIBS:NMALIBRY’; : 
; § 1 LIBRARY ‘LIBS$:NCPLIBRY'; ° 
; $ ; | LIBRARY ‘SYSS$LIBRARY:TPAMAC’; ; 
; . =o : 
; : $ 1 ! EXTERNAL REFERENCES: . 
a. 1! : 
; $9 5 ! ACT_DFN ! Action routine externals : 
; 64 1 1 EXTERNAL ; 
3 o7 § } NCPS$GL_QUALPRS; ! Flag presence of qualifier ‘ 
: 65 064 1 LITERAL : 
3 66 S94 : QUALPRESENT = 1; ! Flag presence of qualifier on command Line ‘ 
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: 1 } ZSBTTL ‘Set Parameter blocks' 
i 1! 
: if f ! Set Configurator Parameter Blocks 
a P , } . BUILD_PCL 
; id: P0074 1 
: 4 4 o? ! (MCF, ! Module Configurator 
Pe, Pp 8 1 CIR, TKN, PCCN_CIR, , 
3 0 P 4 1 
3 1 . : SUR, NUMB, PCCN_SUR, , 
: 4 P O81 1 ; 8. ss 
; P 00 ¢ 1 
3; 685 0 1 ) 
; 86 0 | 
s 87 0 1 
: 88 P0086 1 BUILD_PBK 
; $3 4 itt 1 (MCF ! Module Confi t 
: ‘ : e Con rator 
; Ot P 9089 | Neate incaetes 
: 3§ P 0090 1 CIR, TKN, , , ' Circuit is a qualifier 
: 93 P 0091 KCI, LITB, NMASC_ENT_KNO, MCF_CIR, i Known circuits 
: 95 P 6098 1 SUR_ENAB, LITB, NMASC_SUR_ENA, MCF_SUR, 
; 96 P0094 1 SUR-DISAB, LITB, NMAST_SUR_DIS, MCF_SUR, 
3 97 P 0095 1 
3 98 0096 1 ) 
3 99 0097 1 
3 19 i444 ' BIND PDBSG_MCF_ENT = UPLIT BYTE(O, ZASCIC ‘CONFIGURATOR'); 
: 198 P0100 1 BUILD_SDB 
3 0 0101 1 (MCF, NMASC_ENT_MOD, MCF_ENT, MCF) 
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; 105 1 1! 

: 1 } } Set Console Parameter Blocks 

cs. 5 105 1 

. ¥ P 01 1 BUILD_PCL 

s 11 P 01 1 

; Ne 4 } ! (MCS, ' Module Console 
‘os P0110 1 RTR, NUMB, PCCO_RTR, , 

3; (116 P0111 1 

4 115 P 18 1 . END, oe 

3 116 P0115 1 

; 1 114 «1 ) 

3 118 115 #1 

; 11 V8 1 

; 120 PO117 1 BUILD_PBK 

3 (121 P0118 1 

3; (1 ¢ P0119 1 (MCS, ! Module Console 
s le P0120 1 

3s 126 P 0121 1 RTR, NUMB, , , 

3; 125 P 01 ; 1 

s 126 01 1 ) 

3 isi 0124 1 

} : ; 3) ? : BIND PDBSG_MCS_ENT = UPLIT BYTE(O, ZASCIC ‘CONSOLE'); 
; 1§ P 0127 1 BUILD_SDB 

3 131 0128 #1 (MCS, NMASC -ENT_MOD, MCS_ENT, MCS) 


STAMOD .B32; 


tts Wap Edel 328 


qaaaaaaaa aaaaaaa a 


PNT OPR- DHOOM TN OR- OKO UM TIN OR. OOO 
POV ST FT ST FST TTT TOMMNMANNNA OO 
LOL LLL 


. = 
wy 
= 3 
ooo a ea 
wm °o °o 
oe H | 
oo 
ww a a 
- —_ ~ . 
om 3 >] ~ 
or vo wo ad 
i?) o fo 4 
wv = = (vu) 
coco a 
on -- -e < 
-— oa oO 
‘os beh oh ad 
aa nw = 
@amewwe ne 
mm =< it J 
ss a -_ 
zovw aw vv _ 
Co = wn” oa 
= <= =i 
a bs ve = 
<< 
‘= «za . . 
a zw o a 
a w . w t ~ 2 
o = an vey w 
°o rs) . mn — ‘ 
=) o ” Net > a 
a ” <« @ J 
. @ ba LS) = 
ke T Ve - 
w (= a oe — 5 
co au _ 4 a 
eo ee v a o 
o we a > = 
) i= bg ' 
@ a u - 
bd & oar z 
a a Lem - w 
~ a — z ‘ 
o | ive} WO 
w . = . . 1 eh 
c wy i 2 os | a act 
o a=] i) . @ _ as 
v a a. — a ” =z” 
oO ‘ 4 be t -“_ i 7 
° _) a . a a > wo o as 
“ow —_ 2a -_ Zz —_ a ‘es fa co 
Ox a _- _ WW w -—- ~ Ww Qo wu 
“uv aw aC ET—hUC<C MF > = HM eo 2t 
sc ”“ o~ <« _- Oo ~ «a -—- aA Om 
32 
a 
- 
- ww a 
cw 2 
°o 4 = 
Ce ----- o 
+4 Ss LLL LLL LLL LLL LLL LLL 
~a 
P| PDOKMMTNOPR. DOOM CUM TN OP DOO CUM TINO 
el al a el i i i i ee ee a A aL 
= Se SSK SC SC CO OC CC CC OC CC CC CC COON 
A COOOOCOCOCOCOCOCOCOOCOCOCOCOOCOCOCOCOCOCCoOoOoOoOOoO 


ssesaag® 


Page 


32 V4.0-74 


UNCP SREINGPSTAMOD b3ne4 


@ 
- 
- 
o 
=< 
<= 
. = 
3 A 
oo °o o 
wow o be 
7 «* ad 
woo 
ww ea @ 
of —_ aw’ *e 
or | > | ~ 
o- 0 a=) - 
coco a 
on a - o 
-- -~ °o 
es wm — 
aa wn = 
awe we 
mw =< st Vv 
‘se a oo 
@mwo- aw vw a 
— a} x ” a 
= < ad 
a ba Ed = 
o< 
ec <«z . ~ 
a zw So | aon 
a nw . w t ~ z 
°o a Le) uw us 
°o Vv oS nw - t 
=) o ” “nae > a 
~ nw =< t @ — 
® @ 4 i=) = 
A t Ve _ 
a . a oi — . 
ao] a a a a 
@ rw wv a o 
oO wv a =) = 
| € ° 4 
© be) “ _ 
ba — @ae z 
@ «© onl _ w 
= o. _— 2 a 
°o =’ {YY} =) 
" . s ss t PB 
. 8.68 Ss a2 % 8 
>. 
~ fe] a 2 25 = 33 
°o q . a 2e t a 
° = a . a Qa > wo wo aes 
ow —~ a -_ 2 — a ‘es ea a 
Ow oa -—- ~ WW w -—- ~ ww Qo -4 
wy a — a ae 2] > = “mM a Dz 
2° ”“” ao ~ <« _ o~ << = aw~ 
32 
oa 
- 
s 2 — 
w e womens @ 
+ S LLL LL 
7a 
a ODOM DRAOK MUM TMNOR-DOO-— UM T 
3 Y MNMMNOOODOOOOOOORPAAPAPA-P_A-R-R. 0000000000 
ea LLL LL 
YF COOOCOCOCOCOCOOCOOCOSCOCOOCOOOCOCOCOCCOOOO 


aaaacaaaa agaaaaaaa a 


Es VOSS SSO Mos Or FO 300-5 OF Oo 


eel el cee eel eel cell cell cee ceed el eel eel cel ol cel el cel oe ce ee oe oe el el eel lh i ced 


1S SRR ee 


Modules Confi 
Parameter bloc 


—_ 
—s 


—>* bs) sb bb 


VuvVVVVUUU 


VvuVVVVUVUUU 


vv 


SOOCCCOSCOCOCOOOOOCCOOCOOC OOOO OCOOOOOOOOOCOOOO 
POPOPOPOPOPOPOPONOPOPONOPOPOPONOPOPINOTND 2 2 SS SSS see 


SOSVAARWVISSSGR AE A ODS MOAR MO LODO I 


tO bs bs ss a a = a — ss as a 1 ss 
_——. 


SNEWS OBNANF WV OSRIE AE WUD OSB IRR CO 


rr 


2 
urator, Console, Loader, Looper P 1b-se -1984 46:4 AX-11 Bliss-32 V4.0-74 
? ks ° 1 ~3007 138% 90:78:38 YNCP SREINEESTAMOD O32, 


"Clear Parameter blocks’ 


Clear Configurator Parameter Blocks 


BUILD_PCL 

(CCF, ! Module Configurator 
CIR, TKN, PCCN_CIR, , 

SUR, LITB, PCCN_SUR, , 

» END... 

) 

BUILD_PBK 

(CCF, ! Module Configurator 
ALL, LITB, 0, VRB_ALL, 

CIR, TKN, 0, ! Circuit is a qualifier 
KCI, LITB, NMASC_ENT_KNO, CCF_CIR, i Known circuits 

SUR, LITB, 0, , 

) 

BUILD_SDB 

(CCF, NMASC_ENT_MOD, MCF_ENT, CCF) 


i) 
NCPSTAMOD Modules Configurator, Console, Loader, Looper P 16 
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mo 


: 1 1! 

: § § ! Clear Console Parameter Blocks 
# BE 

: < P 6 1 BUILD_PCL 

; » 1 

: 235 3 ; (CCS, 

; P 0g30 1 RTR, LITB, PCCO_RTR, , 
: P 1 fae 

; 240 P ¢ 1 

3 re. ¢ : ) 

3 “8 P BUILD_PBK 

; 45 p 8 (CCS, 

; és P 40 ALL, LITB, 0, VRB_ALL, 

> 269 P 4g 1 RTR, LITB, 0, . 

3 50 P 0243 1 

3 2 44 1 ) 

3 § 45 1 

; 33 4 0 46 BUILD_SDB 

: 255 48 1 (CCS, NMASC_ENT_MOD, MCS_ENT, CCS) 
g 28 49 «1 

: 25 250 1 


-1984 00:46:4 Ax-11 Bliss-32 V4.0-742 
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! Module Console 


! Module Console 
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i 
; 1§ ZSBTTL ‘Prompt strings’ | 
i 1 | 
‘ 1g } Build prompt strings | 
74: 
: \8 BIND 
0 P y PROMPT_STRINGS 
1 " (MCF, 
P : DAT, ° (CIRCUIT name, or in trie vs 
p 4 KWN, ' RCUITS): °, 
5 4 5 SUR, "Surveillance flag (ENABLED, DISABLED): ', 
flese 
P 7 PROMPT_STRINGS 
? . ? (CCF, 
ri} P § DAT, ° (CIRCUIT name, or KNOWN): ', 
Pp ot (CIRCUITS): °, 
: . : ALL, ‘ALL Configurator parameters (¥Y, Ws: °, 
§ 4 § SUR, ‘Surveillance flag (Vv, Ws: °, 
8 8 ; 
$0 8 
3) 1 
38 § 
54 4 
32 5 
39 ; 
58 3 
59 
60 0 
4& 
5 


1 
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1 
1 
1 
1 
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1 
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1 
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1 
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BIND 
P 32 PROMPT_STRINGS 
. Mr (MCS, 
4 34 RTR, ‘Reservation timer (1-65535 seconds): ', 
3 : 
P 035 PROMPT_STRINGS 
4 3 : (ccs, 
4 55 ALL, ‘ALL Console parameters ie. Gs *, 
p 3$ RTR, ‘Reservation timer 7, We *, 
P 0358 
59 FE 
0 
1 ! 
¢ : Module Loader prompts 
4 BIND 
e PROMPT_STRINGS 
. 3 (MLD, 


| 
; Module Console prompts 
| 
| 
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P0369 ASS, "Assistance control (ENABLED, DISABLED): ', | 
1 i , | 
é ® 74 PROMPT_STRINGS | 
P 7 (CLD, | 
5 P 0375 
. 4 iM ALL, ‘ALL Loader parameters (Y¥Y, WN): °, 
88 ad 4 ASS, ‘Assistance control (Y, ND: ‘, 
89 P 037 
90 + ); 
91 1 
3 Hf ! 
9 8 ! Module Looper prompts 
94 84 ! 
° 85 BIND 
38 39 
98 88 
99 89 
400 90 
14 
38 
94 
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P 03 PROMPT_STRINGS 
: ; (MLP, 
res 4 ASS, ‘Assistance control (ENABLED, DISABLED): '‘, 
40 De 
40 
404 Pp PROMPT_STRINGS 
405 P 0395 (CLP, 
ode P 0 
40 P 8 9 ALL, ‘ALL Looper parameters (Y, Ww): °, 
408 p $o5 
409 P 99 ASS, ‘Assistance control (VY, Ww): °, 
410 P 0400 
411 0401 ); 
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ZSBTTL ‘Declare entry points to TPARSE tables’ 


1 
1 Declare entry points to this TPARSE table 


SINIT_STATE (NCPSG_STTBL_"OD, NCPSG_KYTBL_MOD); 
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ST_MCF: VECTOR (0), ! Se 

ST_CCF: VECTOR ° ! Clear Module Configurator 
ST_MCS: VECTOR ° ! Set Module Console 
ST_CCS: VECTOR ° ! Clear Module Console 
ST_MLD: VECTOR ° ! Set Module Loader 
ST_CLD: VECTOR ° ' Clear Module Loader 
ST_MLP: VECTOR ‘ ! Set Module Looper 
ST_CLP: VECTOR 3 ! Clear Module Looper 
NCP$G_STTBL_MODCNF = ST_MCF 

NCP$G_KYTBL_MODCNF = NCP$G_KYTBL_MOD, 

NCP$G_STTBL_CCF = ST_CCF, 

NCPS$G_KYTBL_CCF = NCP$G_KYTBL_MOD 

NCPSG_ stTeL -MODCNS = ST_MCS, 

NCP$G_KYTBL_MODCNS = NCPS$G_KYTBL_MOD, 

NCPS$G_ STTBL CCS = ST_CCS 

NCPS$G_KYTBL_CCS = NCPS$G_ 


KYTBL_MOD, 
MLD 


NCP$G_STTBL_MODLOA = ST 
NCP$G_KYTBL_MODLOA = NCPSG _RYTBL MOD, 
NCP$G_STTBL_CLD = ST CLD, 
NCP$G_KYTBL_CLD = NCPSG. KYTBL MOD, 


NCP$G_STTBL_MODLOO = 

NCP$G_KYTBL “MODLOO = NCPSC. KYTBL MOD, 
NCP$G_STTBL_CLP = ST 
NCP$G_KYTBL_ CLP s ACPSG. _RYTBL _MOD; 


Ta} 


vuvv 


vw 


vw vv vuvuvv 


vuvuvv 


COO C8 INNS SIN NS NNN SIOO OO 


233— 


vv 


wvvvD 


9 
Modules Configurator, Console, Loader, Looper P tbese -1984 46:4 AX-11 Bliss-3 
Declare entry pe nts to TPARSE tables . 1 ~300 71382 99:78:58 ENCP. SRE NCPST 
441 4 
rr ZSBTTL ‘SET Configurator Module Parameters’ 
4 ¢ 
ate SET/DEFINE MODULE Configurator parameter states 
r ! 
44 SSTATE (ST_MCF 
44 (TPK$_E6s) 
45 (TPAS LAMBDA, ST_MCF_DAT) 
4 SSTATE ( 
4 (TPAS_LAMBDA, , ACTSPRMPT, , , PMTS$G_MCF_DAT)); 
5 ' 
2 Configurator is qualified by Circuit or Known Circuits 
5 SSTATE (ST_MCF_DAT, 
6 (*cIRculT') 
é ("KNOUN', ST_MCF_DAT_KWN), 
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SET/DEFINE Looper parameter states 
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TPAS_LAMBDA, ST_MLP_PRC) 


(ST_MLP 
CTPRS £6 
) 


PROMPT_STATES 
(MLP, 
ASS) 


(ST_MLP_DOIT 
(TPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDBSG_MLP), 


(ST_MLP_PRC 
((SE_ALC), ST_MLP_DOIT), 


DISPATCH_STATES 
(MLP, 


ASS, ‘ASSISTANCE’, 
) 
g (TPAS_EOS, ST_MLP_DOIT) 
Process States 
PROCESS_STATES 

(MLP, 


ASS, 6 
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(ST_MLP_ASS, 

KEYWORD_STATE 
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ASS_ENAB "ENABLED® , 
ASS~DISAB, "DISABLED', 
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3 7 1 : 
3 P0702 1 $STATE (ST_CCF ; 
; P0703 1 (TPKS_E6s) ; 
; P0704 1 (TPAS ~FRRBbA, ST_CCF_DAT) ; 
; i 5 : ); : 
: P0707 1 $STATE ( : 
; , § (fPAS_LAMBDA, , ACTSPRMPT, , , PMTS$G_CCF_DAT)); : 
: 710 1! : 
3 148 : } Configurator is qualified by Circuit or Known Circuits ; 
: P b718 1 $STATE (ST CCF DAT, : 
; P0714 1 (CIRC UIT" ; 
; P0715 1 KNOWN’ tf CCF_DAT ; 
: P 716 (TPAS. Eos, ST_CcF_ PHT. tir ACTSSAVPRM, , ,PBKSG_CCF_KCI), ; 
; 0718 1 : : 
; P 0719 1 S$STATE 3 
; P0720 1 (tse _CIRC_ID), ST_CCF_PMT_CIR, ACTSSAVPRM, : 
; 07 QUALPRESERT, ACPSGL_QUALPRS, PBKS$G_CCF_CIR)); : 
; P 0723 1 SSTATE (ST_CCF_DAT KUN : 
; 07 4 (TP. PRS LAMBDA) ) ; 
: P 07 6 1 COMMAND _P 
3 4 of . : (CCF, RON. ONCPS. INVKEY, 
; P 7 ; (* CIRCUITS’, ST_CCF_PMT_CIR, ACTSSAVPRM, , ,PBKS$G_CCF_KCI), 
; 7311! 
3 Hy : Prompt for circuit parameters 
: P 0734 1 $STATE (ST_CCF_PMT_CIR, 
; Pp 07 a. (TPAS_E0S),~ ' start prompting if EOS 
3 ba89 : (TPAS— “LAMBDA, ST_CCF_PRC)); ! Else try parsing parameters 
: P O78 1 QUERY_STATES 
; p 739 (CCF, 
; 741 1 ALL, SUR) 
; reg 
; SSTATE (ST 
; 1 
; 1 
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: 774 P 07 $ 1 ) ‘ 
3 77> P Bf 1 ; 
; 77 r 07 8 1 (TPAS_EOS, ST_CCF_DOIT) ‘ 
: 77 i 5; : 
: 778 760 (1 ‘ 
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3s 781 0765 1! Process States ° 
; 78 the 1! ° 
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> 784 P 0706 1 (CCF, : 
3 rs P 0767 1 ° 
er P 0768 1 SUR , 
: 787 P 0769 1 ° 
; 788 0770 1 ) ° 
: 789 0771 #1 ° 
; 790 Bite 1! ° 
3; 791 0773 1! Subexpression states ° 
: 79 0774 1! ; 
; 7 0775 (1 ° 
; 796 P 3776 1 SUB_EXPRESSIONS ¢ 
: 795 P0777 1 (CCF, . 
: 796 P 3778 1 ° 
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: 1 } ZSBTTL ‘CLEAR Loader Module Parameters’ ; 
: 86 § 1! : 
; ¢ rh} : CLEAR/PURGE MODULE Loader parameter states : 
: ee : 
; 86 P 1 SSTATE (ST_CLD ; 
; 868 P 1 (TPRS_E6s) : 
: 869 P 0849 1 (TPASLAMBDA, ST_CLD_PRC) ; 
: 87 1 ; 
: ie Pp 5 1 QUERY_STATES ; 
> 874 P0854 1 (CLD, : 
; 875 P0855 1 : 
3 578 637 : ALL, ASS) : 
: 878 0858 1 ; 
: 879 Pp 0859 1 SSTATE (ST_CLD_DOIT : 
; 880 P 0860 1 (TPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_CLD), : 
Be Hie : 
: 884 P Sbez 1 SSTATE (ST_CLD_PRC 

; B85 P 0865 ((SE_ALO), §T_CLD_DOIT), 

: oe P O87 i oe 

: 889 P 0869 1 : 

: 890 P 0870 1 ASS, ‘ASSISTANCE’, 

> 891 P 0871 1 

a Beat 8 ees 

> 89% P 0874 1 (TPAS_EOS, ST_CLD_DOIT) 

oy Byes 

eer 

; 4 0878 : ! Process States 

; 901 p 0881 Bs PROCESS_STATES 

; 90¢ P Be 1 (CLD, 

; 904 4 0884 i ASS 

; 308 888 } ' 

; 909 889 1! Subexpression states 

Be Be 

; 312 P 9 1 SUB_EXPRESSIONS 

: a12 4 3 } us. 

: 915 P 0895 1 ALL, TPAS$_EOS 

: 916 P % 1 ASS. TPAS-LAMBDA, 

: 91 P 0897 1 
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: g 9 o3 } ZSBTTL ‘CLEAR Looper Module Parameters’ ‘ 
; 9 1! 3 
; § § } CLEAR/PURGE MODULE Looper parameter states : 
: 925 .* : 
; 9 P0905 1 $STATE (ST_CLP ; 
; 9 - P 206 1 (TPRS$_E6S) : 
; 9 8 P 30 1 (TPAS-LAMBDA, ST_CLP_PRC) ; 
; 9 8 1 ); 3 
: 3 1 31 i 
; 9 é post 4 QUERY_STATES ; 
WR ers Ba Bg : 
: 935 914 1 ALL, ASS) : 
a a 

: 9 Pp 0317 1 $STATE (ST_CLP_DOIT 

: 939 P0918 1 (TPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDBS$G_CLP), 

> 940 0919 1 ); 

: Bt $959 

: 908 P 09 é 1 SSTATE (ST_CLP_PRC 

: 344 P 09 ; ((SE_ALC), §T_CLP_DOIT), 

; 946 P0925 1 DISPATCH_STATES 

fiat: 8 et 

> 949 P 09 8 1 ASS, ‘ASSISTANCE’, 

: 950 P0929 1 

: 333 P o98t | , 

; 386 p 83 é 1 (TPAS_EOS, ST_CLP_DOIT) 

> 954 33 j; 

: 955 - 9 

. en ee 

: 938 Hat Process States 

: 960 P 09 § :- PROCESS_STATES 

Pee SRR po 

; 308 P 348 1 ASS, . 

: 964 P0943 1 

; 965 944 ) 

; 369 946 1! 

; 968 947 1! Subexpression states 

i 396 9 1 

: 971 P0950 1 SUB_ EXPRESSIONS 

3 376 4 4} ! (CLP, 

3 97% p 338 1 ALL, TPAS_EOS 

; 975 P0954 1 ASS. TPAS~LAMADA, 

: 97% P0955 1 
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; g } ASBTTL ‘Define Subexpressions' 

: 981 1! 

: 3 § $8 Define Subexpressions from Library 

: 985 308 1 SEM_ALL ' ALL parameter 

; 9 964 1 SEM_CIRC_ID ! Circuit name 

; 98 965 1 SEM_LINE ID 

; 988 966 1 SEM_QUERY ! Query state subexpressions 
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